home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 14 Bulletin Boards / CNETKL.BIN / c64.bas
Unknown  |  2019-04-13  |  1.7 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert GW-BASIC (document/gwBasic) ext Supported
66% dexvert GFA-BASIC Atari (other/gfaBASICAtari) ext Supported
1% dexvert Amiga BASIC Protected File (other/amigaBASICProtectedFile) ext Unsupported
1% dexvert BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source) ext Unsupported
1% dexvert Visual Basic Tokenized Source (other/visualBasicTokenizedSource) ext Unsupported
1% dexvert ZBASIC (other/zbasic) ext Unsupported
100% file data default
100% detectItEasy Format: plain text[LF] default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 35 31 32 20 43 24 3d 43 | 48 52 24 28 31 33 29 3a |512 C$=C|HR$(13):|
|00000010| 41 24 3d 43 24 2b 22 13 | c3 4f 4d 50 55 54 45 52 |A$=C$+".|.OMPUTER|
|00000020| 20 cb 4c 41 53 53 49 46 | 49 44 45 53 20 cd c5 ce | .LASSIF|IDES ...|
|00000030| d5 22 2b 43 24 3a 47 4f | 53 55 42 34 30 3a 4a 4b |."+C$:GO|SUB40:JK|
|00000040| 24 3d 22 cb 4c 41 53 53 | 49 46 49 44 45 53 22 0a |$=".LASS|IFIDES".|
|00000050| 35 31 33 20 41 24 3d 43 | 24 2b 22 5b 31 5d 20 c1 |513 A$=C|$+"[1] .|
|00000060| 50 50 4c 45 22 2b 43 24 | 2b 22 5b 32 5d 20 c1 54 |PPLE"+C$|+"[2] .T|
|00000070| 41 52 49 22 2b 43 24 2b | 22 5b 33 5d 20 c3 4f 4d |ARI"+C$+|"[3] .OM|
|00000080| 4d 4f 44 4f 52 45 22 2b | 43 24 2b 22 5b 34 5d 20 |MODORE"+|C$+"[4] |
|00000090| d4 d2 d3 2d 38 30 22 2b | 43 24 3a 47 4f 53 55 42 |...-80"+|C$:GOSUB|
|000000a0| 34 30 0a 35 31 34 20 41 | 24 3d 22 5b 35 5d 20 cf |40.514 A|$="[5] .|
|000000b0| 54 48 45 52 22 2b 43 24 | 2b 22 5b 36 5d 20 d0 52 |THER"+C$|+"[6] .R|
|000000c0| 49 4e 54 45 52 53 22 2b | 43 24 2b 22 5b 37 5d 20 |INTERS"+|C$+"[7] |
|000000d0| d0 45 52 49 50 48 45 52 | 41 4c 53 22 2b 43 24 2b |.ERIPHER|ALS"+C$+|
|000000e0| 22 5b 38 5d 20 d3 4f 46 | 54 57 41 52 45 22 3a 47 |"[8] .OF|TWARE":G|
|000000f0| 4f 53 55 42 34 30 0a 35 | 31 35 20 41 24 3d 43 24 |OSUB40.5|15 A$=C$|
|00000100| 2b 22 5b 39 5d 20 d3 45 | 52 56 49 43 45 53 22 2b |+"[9] .E|RVICES"+|
|00000110| 43 24 2b 22 5b 31 30 5d | 20 cd 49 53 43 45 4c 4c |C$+"[10]| .ISCELL|
|00000120| 41 4e 45 4f 55 53 22 2b | 43 24 2b 22 5b d3 5d 20 |ANEOUS"+|C$+"[.] |
|00000130| d3 55 42 4d 49 54 20 41 | 4e 20 c1 c4 22 3a 47 4f |.UBMIT A|N ..":GO|
|00000140| 53 55 42 34 30 0a 35 31 | 36 20 41 24 3d 43 24 2b |SUB40.51|6 A$=C$+|
|00000150| 43 24 2b 22 5b d1 2f d1 | 55 49 54 20 3f 2f cd 45 |C$+"[./.|UIT ?/.E|
|00000160| 4e 55 5d 22 2b 43 24 2b | 22 c3 4f 4d 4d 41 4e 44 |NU]"+C$+|".OMMAND|
|00000170| 3e 20 22 3a 47 4f 53 55 | 42 34 30 3a 50 4c 3d 31 |> ":GOSU|B40:PL=1|
|00000180| 3a 47 4f 53 55 42 32 31 | 30 30 0a 35 31 37 20 49 |:GOSUB21|00.517 I|
|00000190| 46 41 4e 24 3d 22 31 22 | 54 48 45 4e 4a 4b 24 3d |FAN$="1"|THENJK$=|
|000001a0| 22 c1 50 50 4c 45 22 3a | 47 4f 54 4f 35 33 31 0a |".PPLE":|GOTO531.|
|000001b0| 35 31 38 20 49 46 41 4e | 24 3d 22 32 22 54 48 45 |518 IFAN|$="2"THE|
|000001c0| 4e 4a 4b 24 3d 22 c1 54 | 41 52 49 22 3a 47 4f 54 |NJK$=".T|ARI":GOT|
|000001d0| 4f 35 33 31 0a 35 31 39 | 20 49 46 41 4e 24 3d 22 |O531.519| IFAN$="|
|000001e0| 33 22 54 48 45 4e 4a 4b | 24 3d 22 c3 4f 4d 4d 4f |3"THENJK|$=".OMMO|
|000001f0| 44 4f 52 45 22 3a 47 4f | 54 4f 35 33 31 0a 35 32 |DORE":GO|TO531.52|
|00000200| 30 20 49 46 41 4e 24 3d | 22 34 22 54 48 45 4e 4a |0 IFAN$=|"4"THENJ|
|00000210| 4b 24 3d 22 d4 d2 d3 2d | 38 30 22 3a 47 4f 54 4f |K$="...-|80":GOTO|
|00000220| 35 33 31 0a 35 32 31 20 | 49 46 41 4e 24 3d 22 35 |531.521 |IFAN$="5|
|00000230| 22 54 48 45 4e 4a 4b 24 | 3d 22 cf 54 48 45 52 22 |"THENJK$|=".THER"|
|00000240| 3a 47 4f 54 4f 35 33 31 | 0a 35 32 32 20 49 46 41 |:GOTO531|.522 IFA|
|00000250| 4e 24 3d 22 36 22 54 48 | 45 4e 4a 4b 24 3d 22 d0 |N$="6"TH|ENJK$=".|
|00000260| 52 49 4e 54 45 52 53 22 | 3a 47 4f 54 4f 35 33 31 |RINTERS"|:GOTO531|
|00000270| 0a 35 32 33 20 49 46 41 | 4e 24 3d 22 37 22 54 48 |.523 IFA|N$="7"TH|
|00000280| 45 4e 4a 4b 24 3d 22 cf | 54 48 45 52 20 d0 45 52 |ENJK$=".|THER .ER|
|00000290| 49 50 48 45 52 41 4c 53 | 22 3a 47 4f 54 4f 35 33 |IPHERALS|":GOTO53|
|000002a0| 31 0a 35 32 34 20 49 46 | 41 4e 24 3d 22 38 22 54 |1.524 IF|AN$="8"T|
|000002b0| 48 45 4e 4a 4b 24 3d 22 | d3 4f 46 54 57 41 52 45 |HENJK$="|.OFTWARE|
|000002c0| 22 3a 47 4f 54 4f 35 33 | 31 0a 35 32 35 20 49 46 |":GOTO53|1.525 IF|
|000002d0| 41 4e 24 3d 22 39 22 54 | 48 45 4e 4a 4b 24 3d 22 |AN$="9"T|HENJK$="|
|000002e0| d3 45 52 56 49 43 45 53 | 22 3a 47 4f 54 4f 35 33 |.ERVICES|":GOTO53|
|000002f0| 31 0a 35 32 36 20 49 46 | 41 4e 24 3d 22 31 30 22 |1.526 IF|AN$="10"|
|00000300| 54 48 45 4e 4a 4b 24 3d | 22 cd 49 53 43 45 4c 4c |THENJK$=|".ISCELL|
|00000310| 41 4e 45 4f 55 53 22 3a | 47 4f 54 4f 35 33 31 0a |ANEOUS":|GOTO531.|
|00000320| 35 32 37 20 49 46 41 4e | 24 3d 22 d1 22 54 48 45 |527 IFAN|$="."THE|
|00000330| 4e 31 33 30 30 0a 35 32 | 38 20 49 46 41 4e 24 3d |N1300.52|8 IFAN$=|
|00000340| 22 89 22 54 48 45 4e 35 | 31 32 0a 35 32 39 20 49 |"."THEN5|12.529 I|
|00000350| 46 41 4e 24 3d 22 d3 22 | 54 48 45 4e 35 33 32 0a |FAN$="."|THEN532.|
|00000360| 35 33 30 20 47 4f 54 4f | 35 31 36 0a 35 33 31 20 |530 GOTO|516.531 |
|00000370| 41 24 3d 43 24 2b 41 4e | 24 2b 22 20 2d 20 22 2b |A$=C$+AN|$+" - "+|
|00000380| 4a 4b 24 2b 22 20 cb 4c | 41 53 53 49 46 49 44 45 |JK$+" .L|ASSIFIDE|
|00000390| 53 22 2b 43 24 3a 47 4f | 53 55 42 34 30 3a 41 24 |S"+C$:GO|SUB40:A$|
|000003a0| 3d 4a 4b 24 3a 47 4f 53 | 55 42 35 38 30 3a 47 4f |=JK$:GOS|UB580:GO|
|000003b0| 54 4f 35 31 36 0a 35 33 | 32 20 41 24 3d 43 24 2b |TO516.53|2 A$=C$+|
|000003c0| 22 d3 55 42 4d 49 54 20 | c1 4e 20 c1 c4 2e 2e 22 |".UBMIT |.N ...."|
|000003d0| 2b 43 24 2b 22 d0 4c 45 | 41 53 45 20 d3 45 4c 45 |+C$+".LE|ASE .ELE|
|000003e0| 43 54 20 54 48 45 20 c5 | 58 43 48 41 4e 47 45 22 |CT THE .|XCHANGE"|
|000003f0| 2b 43 24 3a 47 4f 53 55 | 42 34 30 0a 35 33 33 20 |+C$:GOSU|B40.533 |
|00000400| 41 24 3d 43 24 2b 22 d9 | 4f 55 27 44 20 4c 49 4b |A$=C$+".|OU'D LIK|
|00000410| 45 20 59 4f 55 52 20 c1 | c4 20 54 4f 20 41 50 50 |E YOUR .|. TO APP|
|00000420| 45 41 52 20 49 4e 3a 22 | 2b 43 24 3a 47 4f 53 55 |EAR IN:"|+C$:GOSU|
|00000430| 42 34 30 0a 35 33 34 20 | 41 24 3d 43 24 2b 22 5b |B40.534 |A$=C$+"[|
|00000440| 31 5d 20 c1 50 50 4c 45 | 22 2b 43 24 2b 22 5b 32 |1] .PPLE|"+C$+"[2|
|00000450| 5d 20 c1 54 41 52 49 22 | 2b 43 24 2b 22 5b 33 5d |] .TARI"|+C$+"[3]|
|00000460| 20 c3 4f 4d 4d 4f 44 4f | 52 45 22 2b 43 24 2b 22 | .OMMODO|RE"+C$+"|
|00000470| 5b 34 5d 20 d4 d2 d3 2d | 38 30 22 2b 43 24 3a 47 |[4] ...-|80"+C$:G|
|00000480| 4f 53 55 42 34 30 0a 35 | 33 35 20 41 24 3d 22 5b |OSUB40.5|35 A$="[|
|00000490| 35 5d 20 cf 54 48 45 52 | 22 2b 43 24 2b 22 5b 36 |5] .THER|"+C$+"[6|
|000004a0| 5d 20 d0 52 49 4e 54 45 | 52 53 22 2b 43 24 2b 22 |] .RINTE|RS"+C$+"|
|000004b0| 5b 37 5d 20 cf 54 48 45 | 52 20 d0 45 52 49 50 48 |[7] .THE|R .ERIPH|
|000004c0| 45 52 41 4c 53 22 2b 43 | 24 3a 47 4f 53 55 42 34 |ERALS"+C|$:GOSUB4|
|000004d0| 30 0a 35 33 36 20 41 24 | 3d 22 5b 38 5d 20 d3 4f |0.536 A$|="[8] .O|
|000004e0| 46 54 57 41 52 45 22 2b | 43 24 2b 22 5b 39 5d 20 |FTWARE"+|C$+"[9] |
|000004f0| d3 45 52 56 49 43 45 53 | 22 2b 43 24 2b 22 5b 31 |.ERVICES|"+C$+"[1|
|00000500| 30 5d 20 cd 49 53 43 09 | 00 4c 41 4e 45 4f 55 53 |0] .ISC.|.LANEOUS|
|00000510| 22 2b 43 24 3a 47 4f 53 | 55 42 34 30 0a 35 33 37 |"+C$:GOS|UB40.537|
|00000520| 20 41 24 3d 43 24 2b 22 | c3 4f 4d 4d 41 4e 44 20 | A$=C$+"|.OMMAND |
|00000530| 3e 22 3a 47 4f 53 55 42 | 34 30 3a 50 4c 3d 31 3a |>":GOSUB|40:PL=1:|
|00000540| 47 4f 53 55 42 32 31 30 | 30 0a 35 33 38 20 49 46 |GOSUB210|0.538 IF|
|00000550| 41 4e 24 3d 22 31 22 54 | 48 45 4e 4a 4b 24 3d 22 |AN$="1"T|HENJK$="|
|00000560| c1 50 50 4c 45 22 3a 47 | 4f 54 4f 35 35 30 0a 35 |.PPLE":G|OTO550.5|
|00000570| 33 39 20 49 46 41 4e 24 | 3d 22 32 22 54 48 45 4e |39 IFAN$|="2"THEN|
|00000580| 4a 4b 24 3d 22 c1 54 41 | 52 49 22 3a 47 4f 54 4f |JK$=".TA|RI":GOTO|
|00000590| 35 35 30 0a 35 34 30 20 | 49 46 41 4e 24 3d 22 33 |550.540 |IFAN$="3|
|000005a0| 22 54 48 45 4e 4a 4b 24 | 3d 22 c3 4f 4d 4d 4f 44 |"THENJK$|=".OMMOD|
|000005b0| 4f 52 45 22 3a 47 4f 54 | 4f 35 35 30 0a 35 34 31 |ORE":GOT|O550.541|
|000005c0| 20 49 46 41 4e 24 3d 22 | 34 22 54 48 45 4e 4a 4b | IFAN$="|4"THENJK|
|000005d0| 24 3d 22 d4 d2 d3 2d 38 | 30 22 3a 47 4f 54 4f 35 |$="...-8|0":GOTO5|
|000005e0| 35 30 0a 35 34 32 20 49 | 46 41 4e 24 3d 22 35 22 |50.542 I|FAN$="5"|
|000005f0| 54 48 45 4e 4a 4b 24 3d | 22 cf 54 48 45 52 22 3a |THENJK$=|".THER":|
|00000600| 47 4f 54 4f 35 35 30 0a | 35 34 33 20 49 46 41 4e |GOTO550.|543 IFAN|
|00000610| 24 3d 22 36 22 54 48 45 | 4e 4a 4b 24 3d 22 d0 52 |$="6"THE|NJK$=".R|
|00000620| 49 4e 54 45 52 53 22 3a | 47 4f 54 4f 35 35 30 0a |INTERS":|GOTO550.|
|00000630| 35 34 34 20 49 46 41 4e | 24 3d 22 37 22 54 48 45 |544 IFAN|$="7"THE|
|00000640| 4e 4a 4b 24 3d 22 cf 54 | 48 45 52 20 d0 45 52 49 |NJK$=".T|HER .ERI|
|00000650| 50 48 45 52 41 4c 53 22 | 3a 47 4f 54 4f 35 35 30 |PHERALS"|:GOTO550|
|00000660| 0a 35 34 35 20 49 46 41 | 4e 24 3d 22 38 22 54 48 |.545 IFA|N$="8"TH|
|00000670| 45 4e 4a 4b 24 3d 22 d3 | 4f 46 54 57 41 52 45 22 |ENJK$=".|OFTWARE"|
|00000680| 3a 47 4f 54 4f 35 35 30 | 0a 35 34 36 20 49 46 41 |:GOTO550|.546 IFA|
|00000690| 4e 24 3d 22 39 22 54 48 | 45 4e 4a 4b 24 3d 22 d3 |N$="9"TH|ENJK$=".|
|000006a0| 45 52 56 49 43 45 53 22 | 3a 47 4f 54 4f 35 35 30 |ERVICES"|:GOTO550|
|000006b0| 0a 35 34 37 20 49 46 41 | 4e 24 3d 22 31 30 22 54 |.547 IFA|N$="10"T|
|000006c0| 48 45 4e 4a 4b 24 3d 22 | cd 49 53 43 45 4c 4c 41 |HENJK$="|.ISCELLA|
|000006d0| 4e 45 4f 55 53 22 3a 47 | 4f 54 4f 35 30 0a 33 35 |NEOUS":G|OTO50.35|
|000006e0| 35 38 36 20 41 4e 24 3d | 22 22 54 48 45 4e 35 31 |586 AN$=|""THEN51|
|000006f0| 32 0a                   |                         |2.      |        |
+--------+-------------------------+-------------------------+--------+--------+